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ABOUT THIS CHAPTER 


This chapter describes the interface between a Macintosh application program and 
the Finder. 


The Finder has been modified to work with the hierarchical file system. In the 
64K ROM, the user's perceived desktop hierarchy of folders and files is 
essentially an illusion maintained (at great expense) by the Finder. In the 128K 
ROM version of the File Manager, this hierarchy is recorded in the file 
directory itself, relieving the Finder of the task of maintaining this 
information. 


You should already be familiar with the details of the User Interface Toolbox 
and the Operating System. 
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THE DESKTOP FILE 


Most of the information used by the Finder is kept in a resource file named 
Desktop. (The Finder doesn't display this file on the Macintosh desktop, to 
ensure that the user won't tamper with it.) On flat volumes, file and folder 
information is kept in resources known as file objects (resources of type 
'FOBJ'). On hierarchical volumes, the only dynamic file object data remaining in 
the Desktop file are the Get Info comments. The other information about files 
and folders is maintained by the File Manager; for more details, see the section 
"Information Used by the Finder" in the File Manager chapter. 


With flat volumes, the Finder enumerates the entire volume; this means that it 
can always locate a particular application by scanning through all the file 
objects in memory. With hierarchical volumes, however, the Finder searches only 
open folders, so there's no guarantee that it will see the application. A new 
data structure, called the application list, is kept in the Desktop file for 
launching applications from their documents in the hierarchical file system. For 
each application in the list, an entry is maintained that includes the name and 
Signature of the application, as well as the directory ID of the folder 
containing it. 


Whenever an application is moved or renamed, its old entry in the list is 
removed, and a new entry is added to the top of the list. The list is rebuilt 
when the desktop is rebuilt; this makes the rebuilding process much slower since 
the entire volume must be scanned. 


Note: The user has control over the search order in the sense that the 
most recently moved or added applications will be at the top of 
the List and will be matched first. 
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SIGNATURES AND FILE TYPES 


Every application must have a unique signature by which the Finder can identify 

it. The signature can be any four-character sequence not being used for another 

application on any currently mounted volume (except that it can't be one of the 

standard resource types). To ensure uniqueness on all volumes, you must register 
your application's signature by writing to: 


Developer Technical Support 
Apple Computer, Inc. 

20525 Mariani Avenue, M/S 75-3T 
Cupertino, CA 95014 


Note: There's no need to register your own resource types, since they'll 
usually exist only in your own applications or documents. 


Signatures work together with file types to enable the user to open or print a 
document (any file created by an application) from the Finder. When the 
application creates a file, it sets the file's creator and file type. Normally 
it sets the creator to its signature and the file type to a four-character 
sequence that identifies files of that type. When the user asks the Finder to 
open or print the file, the Finder starts up the application whose signature is 
the file's creator and passes the file type to the application along with other 
identifying information, such as the file name. (More information about this 
process is given in the Segment Loader chapter. ) 


An application may create its own special type or types of files. Like 
Signatures, file types must be registered with Developer Technical Support to 
ensure uniqueness. When the user chooses Open from an application's File menu, 
the application will display (via the Standard File Package) the names of all 
files of a given type or types, regardless of which application created the 
files. Having a unique file type for your application's special files ensures 
that only the names of those files will be displayed for opening. 


Note: Signatures and file types may be strange, unreadable combinations 
of characters; they're never seen by users of Macintosh. 


Applications may also create existing types of files. There might, for example, 
be an application that merges two MacWrite documents into a single document. In 
such cases, the application should use the same file type as the original 
application uses for those files. It should also specify the original 
application's signature as the file's creator; that way, when the user asks the 
Finder to open or print the file, the Finder will call on the original 
application to perform the operation. To learn the signature and file types used 
by an existing application, check with the application's manufacturer. 


Files that consist only of text—a stream of characters, with Return characters 
at the ends of paragraphs or short lines—should be given the standard file type 
'TEXT'. This is the type that MacWrite gives to text only files it creates, for 
example. If your application uses this file type, its files will be accepted by 
MacWrite and it in turn will accept MacWrite text-only files (likewise for any 
other application that deals with 'TEXT' files, such as MacTerminal). Your 
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application can give its own signature as the file's creator if it wants to be 
called to open or print the file when the user requests this from the Finder. 


For files that aren't to be opened or printed from the Finder, as may be the 
case for certain data files created by the application, the creator should be 
set to '????' (and the file type to whatever is appropriate). 


@ SpInside Macintosh ¢ Version 1.0 * November 1989 « Apple Computer 
THE FINDER INTERFACE e 5 of 28 


FINDER-RELATED RESOURCES 


To establish the proper interface with the Finder, every application's resource 
file must specify the signature of the application along with data that provides 
version information. In addition, there may be resources that provide 
information about icons and files related to the application. All of these 
Finder-related resources are described below, followed by a comprehensive 
example and (for interested programmers) the exact formats of the resources. 


Version Data 


Your application's resource file must contain a special resource that has the 
Signature of the application as its resource type. This resource is called the 
version data of the application. The version data is typically a string that 
gives the name, version number, and date of the application, but it can in fact 
be any data at all. The resource ID of the version data is 0 by convention. 


Part of the process of installing an application on the Macintosh is to set the 
creator of the file that contains the application. You set the creator to the 
application's signature, and the Finder copies the corresponding version data 
into a resource file named Desktop. (The Finder doesn't display this file on the 
Macintosh desktop, to ensure that the user won't tamper with it.) 


Note: Additional, related resources may be copied into the Desktop file; 
see "Bundles" below for more information. 


Icons and File References 
For each application, the Finder needs to know: 


« the icon to be displayed for the application on the desktop, 
if different from the Finder's default icon for applications 
(see Figure 1) 

¢ if the application creates any files, the icon to be displayed 
for each type of file it creates, if different from the Finder's 
default icon for documents 


The Finder learns this information from resources called file references in the 
application's resource file. Each file reference contains a file type and an ID 
number, called a local ID, that identifies the icon to be displayed for that 
type of file. (The local ID is mapped to an actual resource ID as described 
under "Bundles" below. ) 
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@ 


Application Troe ent 


Figure 1-—The Finder’s Default Icons 

Figure 1—The Finder's Default Icons 
The file type for the application itself is 'APPL'. This is the file type in the 
file reference that designates the application's icon. You also specify it as 


the application's file type at the same time that you specify its creator—when 
you install the application on the Macintosh. 


The ID number in a file reference corresponds not to a single icon but to an 
icon list in the application's resource file. The icon list consists of two 


icons: the actual icon to be displayed on the desktop, and a mask consisting of 
that icon's outline filled with black (see Figure 2). 


a 


Iron Hhsk 


Figure 2-Icon and Mask 


Figure 2—Icon and Mask 


Bundles 


A bundle in the application's resource file groups together all the Finder- 
related resources. It specifies the following: 


e the application's signature and the resource ID of its version data 
* a mapping between the local IDs for icon lists (as specified in file 
references) and the actual resource IDs of the icon lists in the 

resource file 
« local IDs for the file references themselves and a mapping to their 
actual resource IDs 


When you install the application on the Macintosh, you set its "bundle bit"; the 
first time the Finder sees this, it copies the version data, bundle, icon lists, 
and file references from the application's resource file into the Desktop file. 
If there are any resource ID conflicts between the icon lists and file 
references in the application's resource file and those in Desktop, the Finder 
will change those resource IDs in Desktop. The Finder does this same resource 
copying and ID conflict resolution when you transfer an application to another 
volume. 
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Note: The local IDs are needed only for use by the Finder. 


An Example 


Suppose you've written an application named SampWriter. The user can create a 
unique type of document from it, and you want a distinctive icon for both the 
application and its documents. The application's signature, as recorded with 
Developer Technical Support, is 'SAMP'; the file type assigned for its documents 
is 'SAMF'. You would include the following resources in the application's 
resource file: 


Resource Resource ID Description 
Version data with 0 The string 'SampWriter Version 1--2/1/85' 
resource type 'SAMP' 
Icon list 128 The icon for the application 
The icon's mask 
Icon list 129 The icon for documents The icon's mask 
File reference 130 File type 'APPL' Local ID 0 for 
the icon list 
File reference 131 File type 'SAMF' Local ID 1 for 
the icon list 
Bundle 132 Signature 'SAMP' Resource ID © for the 


version data 

For icon lists, the mapping: 
local ID 0 --> resource ID 128 
local ID 1 --> resource ID 129 

For file references, the mapping: 
local ID 2 --> resource ID 130 
local ID 3 --> resource ID 131 


Note: See the documentation for the development system you're using 
for information about how to include these resources in a resource file. 


Formats of Finder-Related Resources 


The resource type for an application's version data is the signature of the 
application, and the resource ID is 0 by convention. The resource data can be 
anything at all; typically it's a string giving the name, version number, and 
date of the application. 


The resource type for an icon list is 'ICN#'. The resource data simply consists 
of the icons, 128 bytes each. 


The resource type for a file reference is 'FREF'. The resource data has the 
format shown below. 


Number of bytes Contents 
4 bytes File type 
2 bytes Local ID for icon list 
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The resource type for a bundle is 'BNDL'. The resource data has the format shown 
below. The format is more general than needed for Finder-related purposes 
because bundles will be used in other ways in the future. 


Number of bytes Contents 
4 bytes Signature of the application 
2 bytes Resource ID of version data 
2 bytes Number of resource types in bundle minus 1 


For each resource type: 


4 bytes Resource type 
2 bytes Number of resources of this type minus 1 


For each resource: 


2 bytes Local ID 
2 bytes Actual resource ID 


A bundle used for establishing the Finder interface contains the two resource 
types 'ICN#' and 'FREF'. 
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Finder 1.1g/h Source Code Listing Information 
03 May 1984 


David T Craig -- 03 January 2004 


Note 
The Finder was written mostly in 68000 assembly language with a bit of Lisa 
Pascal for the main event loop handling. The following are just a few of the 
nearly 300 pages of this listing which should give the reader a small taste of 
the original Finder's internal contents. For a great discussion of the Finder's 
development see the St. Mac magazine article Secrets of the Finder containing an 
interview with Bruce Horn and Steve Capps, the Finder's programmers. 


@ Apple Macintosh 128K Computer Technical Information 


Finder 1.1g(h) 
03 May 1984 
Source Code Listing 


Authors 
Bruce L. Horn + Steve Capps 
Apple Computer, Inc. 
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30 Aug 83 82 /BLANK: FMAIN, TEXT Page 001 
( 
cfmaoin 
ob j: temp 


gob j:tcmp 
obj: fmain 


{(} 
UNIT FMain; 


( 


The Finder--system shell program. 


Written by Bruce Horn 10 May 1963 
Copyright 1983 by Apple Computer. All Rights Reserved. 


This is the main section of the Finder. It calls procedures which 
arc defined in FUtil and FObjs only. All routines are written 
in assembly and can be found in FUtil68K. 


Last modificd 24 December 1983 by Brucc. 


} 


INTERFACE 
USES ($U obj: HcapZonc HeapZonc, 
$U ob j: QuickDraw QuickDraw, 
$U ob j: MacFMgr Fonts, 
SU obj:GrafUtil GrafUtil, 
$U obj: TextEdit TextEdit, 
$U ab j: MacEMgr Events, 
ob j: MachMgr Windows, 
ob j: MacI Mgr Icons, 
ob j: MacDskMgr DeskMgr, 
ob j: MacDMgr Dialogs, 
ob j: MacRMgr Resources, 
ob j: MacMMgr Menus, 
ob j: MacCMgr Contrals, 
ob j: MacSMgr SerapMgr, 
ob j: OSMisc OSMisc, 
ab jz Int lUnit Intl, 
ob j:FDcfs FOcfs, 
ob j:FUtil Futil, 
ab j: FOb js FOb js; 
( +e eHERHEHHASSOmMbIly language procedurcs in FMain6SkK*rttt ttt tree rer } 
PROCEDURE DialagEvent(thcEvent: EventRecord ); 
PROCEDURE DiskEvent(msg: LONGINT ); 
PROCEDURE DoClcan(wind: wWindowPcck ); 
PROCEDURE DoClear(wind: WindowPcck ); 
PROCEDURE DoClosc; 
PROCEDURE DofloscAl1; 
PROCEDURE DoCopy(wind: WindowPcck ); 
PROCEDURE DoCut(wind: WindowPcck ); 
PROCEDURE OoDup licatc; 
PROCEDURE DoPaste(wind: WindowPcck ); 
PROCEDURE DoE ject; 
PROCEDURE DoGetInfo; 
PROCEDURE DoInitDisk; 
PROCEDURE DoQpen; 
PROCEOURE DoPr int; 
PROCEDURE DoPutBack; 
PROCEDURE DoSelectAll(wind: WindowPcck ); 
PROCEDURE DeSctStartup; 


PROCEDURE DoSeroll(thcWindow: WindowPtr; 
dh, dv: INTEGER); 


PROCEDURE DoUnda(wind: WindawPcck }; 
PROCEDURE FreezcWindows; 
PROCEDURE GetMyScrap; 


PROCEDURE HandIcDialogEvent(thcEvent: EventRecord ); 
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PROCEDURE HideScrap; 
PROCEDURE KillWnd(wnd: WindowPtr ); 
PROCEDURE LoopStuf Ff; 
PROCEDURE Ob jE ject (params: Ptr; 
index: INTEGER; 
theObjeet: FOHand ic); 
PROCEDURE ObjInfa(params: Ptr; 
index: INTEGER; 
theOb ject: FOHandIc); 
PROCEDURE Ob jPutBack (params: Per; 
indcx: INTEGER; 
theOb ject: FOHandIc); 
PROCEDURE OpenAccessory(name: Str2S5 ); 
PROCEDURE SaveMyScrap; 


PROCEDURE ScrallWnd(thecCtr i: Contre lHand le; 
theCode: INTEGER); 


FUNCTION SelCount: INTEGER; 
PROCEDURE ShowScrap; 


PROCEDURE WindowC lick(thcEvent: EventRecord; 
WindOuner: FOHand Ic ); 


(tet eereeepascal procedures in FMa in eereneiiniccid } 


IMPLEMENTATION 


END. { FMoin } 
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30 Aug 83 


cF inder 
obj: temp 


gob j: temp 
ob j:F inde 


{(} 
PROGRAM F 


{ 


Written by Bruce Horn 
Copyright 1983 by Apple Computer. 


T 


r 


inder; 


&2 /BLANK: FINDER. TEXT 


The Finder--system shell program. 


his 


procedurcs which arc defined in FUtil, FObjs, 


Last madificd 24 Deccmbcr 1983 by Brucc. 


} 
USES ($U 


ob j: HeopZonc 
ob j: QuickDraw 
ob j: MacFMgr 
ob j: Grafltil 
ob j: TextEdit 
ob j: MacEMgr 
ob j: MacWMgr 
ob j: MacIMgr 
ob j: MacDskMgr 
ob j: MacOMgr 
ob j: MacRMgr 
ob j: MacMMgr 
ob j: MacCMgr 
ob j: MacSMgr 
ob j: OSMisc 


HeapZone, 
QuickDOraw, 
Fonts, 
GrafUtil, 
TextEdit, 
Events, 
Windows, 
Icons, 
DeskMgr, 
Dialogs, 
Resources, 
Menus, 
Controls, 
ScrapMgr, 
OSMisc, 


10 May 1983 
All Rights Reserved. 


s the main loop and initialization of the Finder. 
and FMain. 


Tt calls 


Page 001 


ob j: FDcfs 
obj: FUtil 
ob j: FOb js 
ob j: FMain 


FDcfs, 
FUtil, 
FOb js, 
FMain; 


{ ceo Pascal Procedures in Finder #208 RR HOR HOR tt } 


PROCEDURE ODeskProc( switch: 
thcEvent: 


FUNCTION 


PROCEDURE 
PROCEDURE 
PROCEDURE 
FUNCTION 
FUNCTION 
FUNCTION 
PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


PROCEDURE 


(Heppner Pascal procedurcs 


$R- 
$D0- 
$x- 


DiskPree(dr ive: 


INTEGER; 
EventRecard ); 


INTEGER; 
caller: INTEGER): 


BOOLEAN; 


DoMenuCommand(mResult: LONGINT }; 


ExitToShell; 


EventFetch; 


FarDialog(thcEvent: 


FFrontWindow: 


GrowProc(needed: 


InitDesk; 


EventRecord): BOOLEAN; 


WindowPtr; 


LONGINT ): LONGINT; 


InitHoaks(deskProc: 
diskProc: 
growProc: 
resErrProc: 

InitRes ident; 


KeyEvent( theKey: 


Startup; 
UpdateCursor(mausePt: 
UpdateDesk; 


Un loadInit; 


UnleadSeg(p: Ptr ); 


CHAR; 
theModificrs: 


ProcPtr; 
ProcPte; 
ProcPtr; 
ProcPtr ); 


INTEGER ); 


Paint ); 


FORWARD; 


FORWARD; 
FORWARD; 
EXTERNAL; 
FORWARD; 
FORWARD; 
FORWARD; 
FORWARD; 


EXTERNAL; 


EXTERNAL; 


EXTERNAL; 


FORWARD; 
FORWARD; 
FORWARD; 
FORWARD; 


EXTERNAL; 


EXTERNAL; 


Follow Her HrA Ren HOHeEnoe } 
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(SS BigSeg} 


PROCEDURE DeskProc(*switch: INTEGER; thcEvent: EventRecord*); 
{ This procedure must be called from the desk hook. It handles hit-testing and 
updating on the desk. } 
VAR 
savcPort: GrafPtr; 
deskVis, 
wMgr Vis: RgnHand lc; 
HookUpdatc, 
OskUpdatc: RgnHand le; 
deskPeck: WindowPeck; 
BEGIN { DeskProc } 
CASE switch OF 
-1: BEGIN 
SetPort(deskWindaw ); 
WindowC lick(theEvent, myDesk ); 
END; 
0: BEGIN 
deskPeek := POINTER(ORD(dceskWindow )); 
DskUpdate deskPcck?. updateRgn; 
HaokUpdate := thePortt.clipRgn; 
UnionRgn(HookUpdatc, OskUpdate, OskUpdatc ); f Union update rgns } 
ErascDPat(thePortt. portRect ); Paint deskPat immediate ly 
UpdatcDesk; 
END; 
END; { Case } 
END; {( DeskProc } 


FUNCTION DiskProc{*drive: INTEGER; 
caller: INTEGER*){: BOOLEAN}; 
VAR 
theDisk: FOHandI|c; 
vRefNum: INTEGER; 
BEGIN ( DiskProc 
IF (caller=1) ( FKcey } (*OR (caller=2)*) THEN BEGIN 
vRefNum RefFromOr ive(drive }; 
theDisk DiskVol(vRefNum ); 
IF theDisk<>NIL THEN BEGIN 
IF ActEdit THEN 
IF IsAncestor(theDisk, obj&dit ) THEN CommitEdit; 
Ob jEject(NIL, 0, theDisk ); 
DiskProc := FALSE; 
END 
ELSE BEGIN 
DiskProe := TRUE; 
END; 
END 
ELSE BEGIN 
DiskProc := TRUE; 
END; 
END; { DiskProc } 


PROCEOURE DoMenuCommand( *mResult: LONGINT*); 
VAR myBox: Rect; 

resList: Handle; 

sysEdit: BOOLEAN; 

menuStr, 

myStr ing: Str255; 

we WindowPcek; 

myDisk: FOHaond le; 

theMenu, 

theltcm: INTEGER; 


BEGIN { DoMenuCommand } 
theMenu: =HiWord(mResu lt ); 
thelI tem: =LoWord(mResult ); 


w: =POINTER(ORD(FFrontWindow ) ); 
IF theLtem>0 THEN 
CASE theMenu OF 


app leMenu: ornament menu 
BEGIN 
IF theItem = appinfoltem 
THEN ShowAppInfa 
ELSE 
BEGIN 
Get tem(myMenus[1 ], thel tom, myStr ing ); 
OpenAccessory(myStr ing ); 
END; 
END; 


f i leMenu: { File menu } 
CASE theItcm OF 
OpenI tem: DoOpen; 
Infoltem: DoGctInfao; 
OupI tem: DoDup licate; 
PutBackI tcm: OoPutBack; 
CloselItem: DoC lose; 
CloscAl tem: DoC loscAll; 
PrintItcm: OoPr int; 
Ejectitem: BEGIN 
IF cvtOwner <> myDesk THEN BEGIN 
myDisk := DiskObject(cvtOwner ); 
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SuperSel0b ject(FALSE, myDisk ); 
END; 


IF (CountObjects(DiskFlavor, cvtQwner )=0) THEN BEGIN 
myDisk := DiskSelect; { Pick any disk... 
IF myDisk<>NIL THEN BEGIN 
SuperSe lObject(FALSE, myDisk ); 


ENO; ( Case } 


EditMenu: { Edit menu ) 
BEGIN 
IF theItem<SclAllitcm THEN sysEdit := SystemEdit(thel tcm-1 ) 
ELSE sysEdit := FALSE; 


IF NOT sysEdit THEN 

CASE theItcem OF 
Undoltcm: DoUndo(w ); 
CutI tem: DoCut(w ); 
Capyltem: DoCopy(u ); 
Pastcltcm: DoPaste(w ); 
Clearltem: DoC eh 
SclAliltem: DoSclectAll(w); 
ClipItem: ShowSerap; 

END; { Case } 

END; 


VicwMenu: { Arrangement menu } 
VicwOb ject(theI tem, WndOwner (FFronthindaw ) ); 


Spee ialMenu: { Special commands menu } 
CASE theItem OF 
CleanItcm: Dol lcan(w ); 
Trshl tem: 
BEGIN 
DisposTrash(0 ); 
F lushAl1Vols; 
END; 


InitI tem: DalnitDisk; 
StartI tem: DoSetStartup; 
END; ( Case } 


6: IF theltem = 1 THEN ExitToShell; {Hasmig=Wood } 


END; { Case } 
HiLiteMenu(0 ); 
ENO; {( DoMcnuCommand } 


PROCEDURE EventFetch; 

VAR 
myEvent: EventRecord; 
isMyEvent: BOOLEAN; 
longStr: Str255; 
FindWndCode: INTEGER; 
whichWindow: WindowPtr; 
cSerpSize, 
serpResult, 
menuResu lt: LONGINT; 
serpiInfa: pScrapStuf f; 
langResult: LONGINT; 
wPeck: WindowPeck; 

BEGIN { EventFetch } 


LoopStuf f; 

SyncDesk (myDesk ); 

UpdatcDesk; 

Revive indows(myOcsk }; { Revive any dormant windows } 


IF actEdit THEN TEIdle(TEEdit ); 


isMyEvent: =GetNextEvent(everyEvent, myEvent ); 
{SIFC AutoUpdate } 


{ note ncw mouse loc + time when moved 
TF (my€vent.where.h <> eventLoc.h) OR (myEvent.wherc.v <> eventLoc.v) 
THEN 
BEGIN 
eventLoc := myEvent. wherc; 
eventTime := myEvent. when; 
END; 


{ Also if cvents coming, don't interrupt with update. } 
IF myEvent.what <> NullEvent THEN cvcntTime : = myEvent. when; 


(SENOC )} 
UpdatcCursor{ myEvent. where ); 


If ForDialog(myEvent ) 
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THEN DialagEvent(myEvent ) f Handle a dialog event } 
ELSE Handlc a normal Finder event } 
if IsMyEvent THEN 
BEGIN 
CASE myEvent.what OF 


mouscDown: { Mouse Down Event } 
BEGIN 
IF 
myEvent.when < clickTimet+tclickDe lay) AND 
VieepsIoceeTitEe Gueecne ices < 4) 
THEN clickCount: =clickCount+l 
ELSE clickCount: =1; 


¢lickTime: =myEvent. when; 
clickLoc: =myEvent. wherc; 


findWndCode := F indWindow(myEvent. wherc, whichWindow ) 


CASE findWndCade OF 
inMenuBar: { InMenuBar } 
BEGIN 
UpdatcMenus(cvtOuner ); 
menuResult := McnuSclicct(myEvent. where ); 
DoMenuCommand(menuResu lt 
END; { inMcnuBar } 


inDrag: { InDrag } 
BEGIN 
IF NOT featurcDown THEN SclectWindow(wh ichWindow ); 
DragWindow{whichWindow, myEvent.wherc, screenRect ); 
IF See oerc dtedan) = finderKind THEN 
SetWindParms(wndOwner (wh ichW indaw ) ); 
END; 


inSyswW indow: { = inDesk with desk hoak } { InSysWindow 
BEGIN 
SystemC lick(myEvent, whichW indow ); 
ENO; 


inContent: { InCentent } 
BEGIN 
(IF whichWindow<>FrontWindow THEN } Sc lecthindow(whichWindow ); 
UpdatcWindaows; 
IF wndKind(whichWindow) = f inderKind 
THEN WindowC lick(myEvent, WndOQuner (wh ichWindow ) ); 
END; 


inGoAway: { InGoAway } 
BEGIN 
IF TrackGoAway(wh ichWindow, myEvent. where ) 
THEN Dal lose; 
END; 


inGraw: { InGrow } 
BEGIN 
IF whichWindow<>FrontWindow THEN Se lectWindow(wh ichWindow ); 
IF (wndK ind{ whichW indow )=F inderK ind } OR 
undK el ichWindow )=scerapK ind ) 
THEN GrowWnd(whichWindow, my€vent. wheec ); 


IF wndKind(whichWindow) = finderKind THEN 
SetW indParms(wndOwner (wh ichWindow ) ); 
END; 


ENO; { Case findWndCode } 
END; 


kcyDown, AutoKey: { Key Down Event } 
BEGIN 
KeyEvent(Chr(myEvent.message MOD 256), 
myEvent. modifiers ); 
END; 


updatcEve: { Update Event } 
BEGIN 
whichWindow := Pointer(myEvent. message ); 
UpdatcWnd(wh ichWindow ); 
END; 


diskEve: { Disk Event } 
BEGIN 
DiskEvent(myEvent. Message }; 
END; 


activatcEvt: ( Activate Event 
BECIN 
langResult := myEvent. modifiers; 
whichWindow : = POINTER( ORO{myEvent. message )); 
IF BitAnd( longResult, 1)=1 
THEN ActWnd(wh ichWindow ) 
ELSE InactWnd(whichW indow ); 
END; 


END; ( CASE cvent.What } 
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END; { IsMyEvent ) 
END; { EventFetch } 


FUNCTION ForDialag(*theEvent: EventReeord* )(: BOOLEAN}; 
BEGIN ( ForDialog } 
ForDialog := 
IsDialogEvent(thcEvent ) ANDO NOT { Command kcy } 


((theEvent.what = kcyDown) OR (thcEvent.what = autoKcy )) 
AND (BitAnd(thcEvent. modifiers, 256 )<>0) 


END; ue FarDialog ) 


FUNCTION FFrontWindow(*: WindowPtr* ); 
VAR 
x: HWindowPtr; 
BECIN 
x: =FrontWindow; 
IF x = NIL THEN x: =deskWindow; 
FFrontWindow: =x; 
END; 


FUNCTION GrowPrac( tnecded: LONGINT*){: LONGINT }; 
BEGIN { GrowProc } 

CrowProc := 0; { Always rcturn, without any action... 
END; { GrowProc } 


PROCEDURE KeyEvent(*theKey: CHAR; thcModificrs: INTEGER*); 
VAR 
thceOb ject: FOHand Ic; 
app lcKey: BOOLEAN; 
menuResu lt: LONGINT; 
BEGIN ( KeyEvent } 
applicKey := BitAnd(theModifiers, 256 )<>0; 
IF applicKey 
THEN 
BEGIN 
UpdatcMcnus(cvtOuncr ); 
MenuResu lt MenuKey( theKcy ); 
DoMenuCommand(menuResu It ); 
END 
ELSE 
BEGIN ( Rename an object } 


IF ActEdit AND ((ORD(thcKey )=13) OR (ORD(thcKey )=3)) THEN BEGIN 
theQbject := Ob jEdit; 
CommitEdit; 
END 
ELSE 
IF PrcEdit( POINTER(ORD(@thcKey )+1), 1 ) THEN BEGIN 
TeKey(thcKey, TEEdit }; 
PostEdit; 
NameChanged : = TRUE; 
END; 


END; 
END; { KeyEvent } 


PROCEDURE Startup; 

BEGIN { Startup } 
sysResident := FALSE; System stuff can still purge } 
FndrRes : = CurResF ile; Current resource file is FndrRes } 
SctRFAttr(7, TRUE, FrdrRes ); Set finder ReadOnly } 


InitDesk; { Load in desk statc, Find disks, 
clickTime: =TickCount; 
VicwArrow; 

ENO; ( Startup } 


PROCEQURE UpdatcCursor(*mouscPt: Point*); 

VAR 
savePort: GrafPtr; 
le lPoint: Point; 
wndOb ject, 
theOb ject: FOHand lc; 
FWCode: INTEGER; 
inText: BOOLEAN; 
theW indow: WindowPtr; 
theD ia log: DialogPtr; 
thek ind: INTEGER; 
theltcm: Hand lc; 
thcBox: Rect; 
whichCursor: INTEGER; 


PROCEDURE TryTecxtHit( o: FOHandle ); 
BEGIN 
IF FindSubOb ject(IclPoint, theObject, inTcxt, o} THEN BEGIN 
IF 
inTcxt AND 
TstBit({thcObjccttt.vicw, of FlinVicw }=0) AND 
theOb ject tt. RRefNum <> FndrRes) AND 
selectCnt <= 1) AND 
TstBit( GctAF lags( TRUE, theOb ject), flacked )=0) 
THEN BEGIN 
whichCursor: ={BeaomCursar; 
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END; 
END; 
END; 


BEGIN ( UpdateCursor } 
IF WndK ind(FFrontWindow) < 0 THEN { System Window } Exit(UpdateCursor ); 


whichCursor: =arrowCursor; {Assume the arrow cursor } 
GetPort(savePort ); 
le IPoint := mousecPt; 


FWCode := FindWindow(mouscPt, theWindow ); 


CASE FWCodc OF 
inContent: BEGIN 


SetPort(theWindow ); 
GlobalToLacal( le lPoint ); 


CASE WndK ind( theWindow) OF 
FinderKind: BEGIN 
wndOb ject := wndOwner( theW indaw ); 
IF (wndObjecttt. vicw DIV 256 = spatialltem) THEN BEGIN 
theBox := thePortt.portRect; 
WITH thcBox 00 BEGIN 
eight := right - sBarHt; 
bottom := bottom - sBarHt; 
END; 


IF 
ptInRect(IclPoint, thcBox ) 
THEN BEGIN 
TryTextHit( wndObject ); 
END; 
END; {if spatial vicw.. } 
END; (case of finder kind} 


DialogKind: BEGIN 
theDialag := POINTER(ORD( thcWindow ) ); 
GetDItem(theDialog, 15, thcKind, theltcem, theBox); { the edit Field 
IF ptInReet(IclPoint, theBox ) 

AND (theKind=cditText ) THEN whichCursor: =IBeamCursor; 
END; 
END; { Case wndkind} 
END; (case inContent } 


inSysWindow: BEGIN ( = inDesk with desk hook } 
IF theWindow = NIL THEN BEGIN 
TryTextHit( myDesk ); 
END; 
END; 
END; ( Case } 


SctPort(savcPort ); 
ViewCursor(whichCursor ); 
END; ( UpdatcCursor } 


PROCEDURE UpdatcDesk; 

VAR 
deskPcck: WindowPeck; 
savePort: GrafPtr; 
updatcRect: Reet; 

BEGIN { UpdatcDesk } 
GetPort cn 
SetPort(WMgrPort 


ClipRect(WMgrPortt.portRect ); start with sereen } 
ClipAbove(NIL ); Find above clip in WMgrPort 
CopyRgn(WMgrPortt.clipRgn, deskWindowt. visRgn ); Sct my vis for beginUpdate 


deskPeck == POINTER(ORD( dceskW indow ) ); 

IF NOT EmptyRgn(deskPeckt.updatcRgn) THEN 

BEGIN 
Beg inUpdate( deskWindow ); 
SetPort(deskWindow ); 
updatcRect := deskWindow?. visRqntt.rgnBBox; 
ErascDPat(updatcRect ); { Paint deskPat first 
OrawSubOb jects(updatcReet, myDesk ); 


EndUpdate(deskWindow ); 
ENO; 
SetPort(savePort ); 
END; ( UpdatcDesk } 
{ss } 


BEGIN ( Finder } 
InitResident; { Imitialize all pointers } 


( InsertMenu(GetMenu(6), 0); OrawMenuBar; } { FOR HASMIG } 


Startup; 
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Un loadInit; Drop the init segment fer sure } 


REPEAT 
MegaMach inc; Do File copics} 


EventFetch; Start finder cvent loop } 
UseResF i le(Fndrfes ); 
IF NOT BigMoc THEN BEGIN 
Un loadSceg{ @ScgBigScg ); Unload BigScg scg } 
Un ioadSeg(@ScgOther ); Unload Other seg } 
END; 
UNTIL, FALSE; 


END. { Finder } 
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F indcr 68K 
Finder main program. 


Written by: Steve Capps & Bruce Horn 
Modif ications: 
24-Dec-83 New today 


Copyright 1983 by Apple Computer, Inc. All Rights Reserved. 


Include TlAsm: SysEqu. Text 


3 System cquates 
- Include TlAsm: SysMacs. Text 3 System macros, linel010 calls 
- Include T1Asm: GrafEqu. Text 3; Basic graphics and sereen driver 
. Include T1lAsm: GrafTypes. Text 3 OF Facts into LisaGraf structumes 
. Include T1lAsm: QuickMacs. Text 3; LisaGraf traps 
- Include T1lAsm: Too lMacs. Text ; ToolBox References 
- Include TlAsm: Tao lEqu. Text 3 Toolbox cquates 
- Include TlAsm: ResEqu. Text ; Resouree cquates 
- Include T1Asm: HeapDefs. Text 3; Mem mgr cquatcs 


. Ine lude FOcfs68K. Text 3 Finder definitions. 


Ref ChkError 


+ PROC Resident 


-Ref ChkError jin huge segment 
Ref InitMain jy be law 

Ref InitSeg ; below 

sRef GetSize 

«Ref SegOther 

«Ref SegBigScg 


-Def InitResident 
-Def InitHooks 
-Def Un loadInit 


Procedurc InitResident; 


This docs a tiny bit of initialization from the blank scgement. 

Tt couses all af the non-relocatables to be allocated before the 

big hunker segment crashes in. InitWindows causes the wmgrport to 

be allocated, so cverything up to that must be here. Then it allocates 
a bunch of master pointer blecks. 


=F indcr68K== 


InitRes ident 


+ Flush the cvents and initialize the “fabulous few" managers 


MOVE. L a$FF7F, DO 3 Flush all event EXCEPT disk... 
FlushEvents 


PEA -4(A5) 
_InitGraf 
_InitFonts 
_InitWindous 


push @thcPort (magic) 
Initialize QuickOraw 
Initialize the FontMgr 
Initialize the WindowMgr 


MOVE #320, D2 3 allocate this many master pointers 
3 two blocks already al tocated 


_MoreMasters 


MOVE. L App lZanc, AO 
SUB MA1lacCnt( Ad ), 02 
BPL. a0 


3 Cheek whether to rero the scrap 


TST scrapState 3; test status 

BPL.S ai ; If +ve, don’t zero the serap. 
SUBQ #4,SP 3; room for result 

_ZeroSerap 

ADDQ #4, SP 3 ignore result 
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al 

3; Unload the scrap if inordinately large...(can’t call get size here... ) 
CLR GDcadScrap(A5s ) set indicator to false 
SuBQ #4,SP 


MOVE #4,-(SP) 
JSR GetSize ; leave on stack 


suBQ #4, SP Save space for ptr to info 
_InfoScrap get the information 
MOVE. L (SP )+, AO Get ptr ta AO 


MOVE. L SP )+,D1 
CMP.L D1 ; if > 5000 

BGT.S 

suBQ 

_UnlodeScrap 

TST.L 3 zero scrap if crrors 


BPL.S 


3; Not cnough room for scrap aon disk, tell uscr in loop 
suBQ #4, SP ; room for result 
_ZeroScrap 
ADDQ #4,SP j ignore result 


ST CDcadScrap(AS ) set indicator 


SegBigSeg Force in main scgments. 
SegOther 


InitMain Init the other scgment 


Un loadInit 
SuBQ #4, SP gct address of segment 
JSR InitSeg 
MOVE. L (SP }+, AO get segment address from initmain 
_RecoverHandle 
MOVE.L AQ, -(SP) 
_Re lcaseResource 


=F indcer68K= = 


Procedure InitHooks(deskProc: ProcPtr; 
diskProc: PracPtr; 
growProc: ProcPtr; 
cesErrProc: ProcPtr ); 


Install an update procedure into the desk hook, a disk procedure 
into the disk-switch haok, a grow procedure into growZonc, and 
an error proc into the resErr hook. 


Only the DeskProc and the ResErrProc require filters--the Graw and 
the disk procs (cject hook) are called dircetly. 


=F inder68K= 


THResProc 

placcholder resErr proc 
THGrowProc 

placeholder grow prac 
IHDiskProc 

placcho Ider disk proc 
THDeskPrac 

P laccho Ider deskProc 


InitHooks 
AG, #0 
A2-A4, -(SP) save regs 


8(A6), AZ Point to last parameter 
IHResProc, Al 3; and First hook address. 


{A2 )*, (AL)+ ; Save resErr procptr 
ResErrFilter, AO 
AQ, ResErrProc 


(A2)}+, (AL )+ 3 Save grawZonc procoptr 
GrowFilter, AO 
_SetGrowZonce 


MOVE. L (A2 }+, (AL )+ Save procptr in disk Proc 
LEA DiskFilter, AO 
MOVE. L AO, EjectNot ify 


MOVE. L (A2)+, (AL )+ Save procptr in desk Proc 
LEA OcskFilter, AQ 
MOVE. L AQ, DeskHook 
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MOVEM. L 
UNLK 


MOVE.L 
ADD 
JMP 


GrowF ilter 
MOVE. L 
JMP 


OiskFilter 
MOVE. L. 
JMP 


OcskFileer 
MOVEM. L 
MOVE. W 
MOVE. L 
MOVE.L 
JSR 
MOVEM. L 
RTS 


ResErrFilter 
MOVEM. L 
MOVE. W 
MOVE.L 
JSR 
MOVEM. L 
RTS 


Futil, 


FMain, 


(SP)+, A2-A4 
AG 


(SP)+, Ao 
#16, SP 
(AO) 


THGrowProc, AO 
(AO) 


THDiskProc, AO 
(AO) 


AQ-A4/D0-D7, 

bo, sie 

AO, -(SP 
THOeskPrac, AO 
AO 

tee te: A0-A4/D0-07 


~(SP) 


AQ-A4/00-07, -(SP) 
BO, -(SP) 
IHResPraoc, AO 

AG 

ee AQ-A4/00-D7 


‘Init’ 
Finder 68k 


FUtil68K Referenecs 


CleanVals 
Collect 

Dr iveFromRef 
Fata l€rror 
GetSize 
OpenF ile 
RefFromDr ive 
VicwHour 


ActOb ject 
AddSubOb ject 
DrawSub0b jects 
MakcWindow 
NewOb ject 

On lincDisk 
SetName 


FMain68K References 


DeskProc 
DiskProc 


InitHooks 
HyperDown 
SetFndrFont 


InitDesk 
TnitMain 
InitSeg 


3 This returns the address of sclf for unloading 


InitSeg 
LEA 
sueQ 
MOVE. L 


RTS 


TnitSeg, AO 
#4, A0 
AO, 4(SP) 
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Restore regs 
unlink 


Get return address 
Pop off parameters 
«.-and return. 


Get the proc ptr 
call it instcad. 


Get the proc ptr 
call it instead. 


MacPasLib smashes regs! 
Pass switch 


and possible cvent record 


Get the proc ptr 

and call it. 

MacPasLib smashes regs! 
and return. Ignore hit. 


MacPasLib smashes regs! 
Pass error code 

Get the proc ptr 

and call it. 

MacPasLib smashes regs! 
and return. Ignore hit. 


for unloading 


return the address of segment 
drop segment hcader????(MAGIC ) 
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PROCEDURE InitOcsk; 


Allocate the desk object, trash object, and anonymous 
Finder resource file (read/only ) 


==F 0b js68K== 
Alternate 


IDAnenWind .Ward 236, 2, 338, 428 
IDAnanLoc »Word 1000, 1000 


» ENDC 
; Offsets from ScreenRect botRight (cxccpt for topleft of wind) 


IDTrshWind .Word -106, 2, -4, -84 
IDTrshLoc -Word -S8, -56 


IDStr ing -EQU -64 7 string 
TDStk - EQU IDString 


InitDesk 
LINK AG, #IDStk 3; Link stack frame 
MOVEM. L A2-A4/D3-07, -(SP) ; Save regs 


ST -(SP) Unmount offline vols 
JSR Clicanvols + Flush online ones 


LEA GSereenRect(AS), AZ 3 Point ta sercen rectangle 
MOVE. L BotRight(A3), 07 ; Put batRight in D7 


MOVEQ #F ldrFlavor, D3 3 Set the flavor= folder 

CLR.L D4 3; location 0,0 

MOVE. L #S$O1L800000+F Idricon, DS ; spatialtwindVicw/F idricon (unused) 
MOVEQ #1, D6 3; Use “Desktop” for name 

MOVEQ #deskID, 00 3 desk object ID 

BSR.S IDCreate 3 Create the object 


MOVE. L A2, A4 Copy desk tao A4 

MOVE. L (A4), AO ; dereference desk 

MOVE.L GDeskW indow AS), Al ; Get the desk window in AO 
MOVE. L Al, wind(AO 3 Set deskWindow in myDesk 
MOVE.L A4, WRefCan Al) 3 Set refeon to myDesk in window 


MOVE.L A4, GMyDesk(AS ) i and set the global. 
MOVE.L A4, GEvtOuner (AS } 3 and set the evt owner 


Alternate 3 Alternate disk? 


MOVEQ #altDiskID, DO j Create the ananymaus disk 
MOVEQ #AnonF lavor, D3 j Set the flavor= anonymous 
MOVE. L TDAnoenLoc, D4 3; location 0,0 

MOVE. L #$01040000+DiskIcan, 05 ; closcdVicw/off binc/DiskIcon 
MOVEQ #2, O6 ; Use "Alternate Disk” for name 
LEA TDAnonWind, A3 3 and initial window 

BSR.S TOCreate j Create the ob ject. 


MOVE.L A2, a 3; Push the ncw object 


MOVE.L. A4, -(SP Push myOcsk 
JSR AddSubOb ject add it to desk 


MOVE. A2, GMyAnon({ AS ) 3 and sct the global 


#TrshF lavor, 03 Set the flavor= trsh 


07, -(SP) 3 Push botRight 
IDTrshLoc 3 Push trash offset 
j and add them to get absolute loc. 


IDTrshloc, D4 location 
#$01000000+TrshIcon, DS ; closedVicw/TrshIcon 

85, 06 Use “Trash” for name 
IDTrshWind, A3 Get of fscts from sereenRect 


D7, -(SP) ; Push botRight, but 
2(SP) ; replace right by left(=0) 


A3, -(SP) ; Push offset 
3; Add them, result is absolute. 


a4, Skip ta botRight 
07, Push botRight 
A3, Push of fsct 


Add them, result is absolutc. 


4, 3 Point back to window rect 
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MOVEQ #trashID, DO 3} trash can I0 
BSR. S IDCreate 3 Create the object. 


MOVE. L A2, -(SP ; Push the new object 
MOVE. L. A4, -(SP 3; Push myDesk 
JSR AddSubOb ject 3; add it to desk 


MOVE.L A2, GMyTrash(AS ) ; and sct the global 
; Create the object for the boot drive initially. 


SUBQ a4, SP Save space for result 
MOVE. W BootDrivc, -(SP} Push the boot drive 
MOVE.L A4, -(SP) push myDesk to be owner 
JSR On lineDisk Create the disk, and 
A0DQ #4, SP ignore result. 


MOVE. L A4, -(SP) 3 Push myOesk 
JSR ActObject and make it the active object. 


MOVEM. L (SP )+, A2-A4/03-07 ; Restore regs 
UNLK AG 5; Unlink 
RTS and return. 


Create a new object. 

DO object ID 

03 f lavor 

04 location 

05 icon ID (low)+vicw (high) 
D6 name ID 


A3 = rectangle address 
Returns A2 = object handlc. 


IDCreate 
SUBQ #4, SP 3; Save space for result 
MOVE. W 00, -(SP) Sct ID 
JSR NewOb ject Create a new object of type 
MOVE.L (SP)+, A2 Save it in A2. 


MOVE.L (A2), AL ; Dereference 

MOVE. W D3, (Al )+ 3; Set the flavar 

MOVE. L. D4, (AL :: 3 Sct the location 

CLR. W (Al )+ 3 Clear lincIndex initially 
MOVE. W OS, (Al)+ 3; the icon ID 

SWAP os Switch ta vicw 

MOVE. W DS, (Al )+ the vicw 

MOVE. wdeskID, (Al )+ Set homeID to desk 

MOVE. L the home and homeL ink 
MOVE.L both = desk. 

cCLR.L no chain yet 

MOVE. L i Set creation date 

MOVE. L i and modification date ta naw. 
CLR.W (A1) Set vRefNum =0 

MOVE. W 3 and cRefNum =finder resource 
CLR.W Flagz := 0. 

CLR.L no initial window. 

MOVE. L 3 Copy topLeft 

MOVE. L j and bottomRight of rect. 
CLR. scrollLoe initially 0,0 
CLR.W 3 and itemCount =0. 


PEA I0Str ing(A6 ) 
MOVE. W D6, -(SP 
JSR GetStr Get it 


Push string index 


PEA 1DString(A6 ) ; Push the pointer 
MOVE.L A2, -(SP and my new ob ject 
JSR ScetName set the name 

RTS and return. 


=F inder68K= 
InitMain; 


Once-only initialization. Restarts don't call InitMain again. 


=F inder68K= 


SerpWind -Word 246, 4, 336, 428 


IMString - EQU -64 ; temp string 
IMIOB Ik ~EQU IMStr ing-IOQE1Size 3 io command black 
IMStk - EQU IMIOB 1k 


InitMain 
LINK AG, #IMStk i stack frame 
MOVEM.L A2-A4/03-D7, -(SP) all regs 


3 Max out the heap 
SuBQ #4, SP for stack size 


MOVE. W #9, -(SP) ; index 
JSR GetSize 
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MOVE.L 


MOVE. L 
SUB.L 


(SP), DO 


SP, AO 
DO, AO 


_SetApplLimit 


the heap w/o purging 


SuB 

MOVE. L 
SUB.L 
_NewHand Ic 
_DisposHand1 


SUBQ 
MOVE. L 
MOVE. W 
_GetResourc 
JSR 


Flush the events and 


_TEInit 


CLR.L 
_InitDialogs 
_InitMath 


JSR 
_ShowCursor 


If the featurctoptian 


suBQ 
JSR 
TST.B 
SNE 


Figure out the boot volume and patch back for 


SuBQ 
MOVE.W 
JSR 
MOVE. W 


Sct up window mgr port 


PEA 
_GethMgrPort 


MOVE.L 
LEA 
LEA 
MOVE. L 
MOVE.L 


Create the special bac 
LEA 


MOVE.L 
MOVEQ 
CLR.W 
DBRA 


MOVE.L 
_OpenPort 


SuBQ 
_NewRgn 


MOVE.L 
PEA 
_ReetRgn 


MOVE.W 
MOVE.L 


MOVE. L. 
MOVE.L 
_SetPort 


JSR 


farce the Font in, whi 
SuBO 

MOVE. W 
_CharWidth 


ADDQ 
Make a ncw TextEdit re 


SuBQ 
PEA 


#1000, AO 
AO, DO 
HeapEnd, DO 


c 


#4, SP 
#RLstTypc, 
#132, -(SP) 
c 

Collect 


-(SP) 


~(SP) 


VicwHour 


keys arc down, 


#2, SP 
HyperDoun 
(SP )+ 
GRestart(AS ) 


#2, SP 
BootDrive, -(SP) 
RefFramOr ive 

(SP }+, BootDrive 


and sercenrect. 
GWMgrPor t(AS ) 
GWMgrPort(AS), A4 


PortRect(A4), AO 
GScreenRect{AS), Al 


AO)+, (AL )+ 
AO J+, (AL Je 
k window 
GDeskWRecard(AS), A2 
A2, AQ 
#WindawS ize /2+1, 


(A0)* 
00, @. 


oa 


A2, -(SP) 
#4, SP 


(SP), Ag 
PortRect(A2) 


initialize the rest of the 
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Get stack size from resources 
set appl limit 
subtract stack 
leave at Icast 


size 


8K for QuickDraw. 


fudge factor 

get the appl limit 
figure out how much 
Get that handle 


Save space for hndl 

Push resource list type 

132 includes all system stuff 
Get it 

go get them in 


managers 
Initialize TextEdit 
Push NIL 
Initialize dialogs 


Initialize packages 


hourglass during startup 
Show the hourglass. 


trash desktop and relocate all icons. 


save for boalcan 
is featurctoption kcy down? 


so, 


trash desktop 


Larry. 


Save space for reference 
push boot drive number 

Get the refnum of the volume 
patch back in low memory. 


Point to WMgrPart VAR 
and get it. 


Get the port 

Paint to the partRect 
and my sercen rect 
copy the reet(1)}! 
copy the rect(2)! 


Cet desk window record 


Get number of words +1 for DBRA 


clear out the window record. 


Push 
open 


the addr 

the port to init ficlds. 
Save 
make 


space for rgn 
a new region for updates 


copy update rgn in A3 
point to the portRect 
set update to portRect 


&F inderKind, WindowKind(A2); Set windowK ind=f inderk ind 


A3, UpdateRgn(A2) 

A2, GOcskWindow(AS ) 
a2, -(SP) 
SctFndrFont 

le we're aver system. 


#2, 
#32, 


SP 
~(SP) 


82, SP 
cord 


#4,SP 
TempRect 


sct up update rgn 


set desk window. 
Sct the port initially. 


ise the finder font 


for width 
space 


the Font now 


initiate record 
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; 


3 


MOVE. L 
_TENcw 
MOVE.L 
MOVE. L 
MOVE. L 
MOVE 


Set up the menus 
_InitMenus 


MOVEQ 
LEA 


MOVEQ 

SUB. W 

SUBQ 

MOVE. W 
_GetRMenu 
MOVE.L 
MOVE.L 
_DetachResou 
CLR.W 
_InsertMenu 
DBRA 


LEA 

MOVE. 
MOVE.L 
MOVE. B 


MOVE. L. 
MOVE.L 
_AddResMenu 


_DrauwMenuBar 
Initialize the hooks a 


PEA 
PEA 
PEA 
PEA 
JSR 


SF 
SF 
CLR. 


CLR 
CLR.L 
CLR 
MOVEQ 
_NewHand Ic 
MOVE. L. 
MOVEQ 
_NewHand Ic 
MOVE. L 
Marks all the windows 
MOVEQ 
MOVEQ 
LEA 


MOVE. L 


ADD 
DBRA 


Load the scrap and create the scrap window 


suBQ 
_LodecSecrap 
MOVE.L 

JSR 


_InfoSerap 
MOVE. L 
MOVEQ 
MOVE. W 
MOVE.L 


CLR.B 
CLR.B 
PEA 


(SP), -(SP) 


SP), GTEEdit(AS ) 
SP }+, AO 

Aa }, AO 

#1, TESty le( AQ ) 


#MLastMcnu-1, D7 
GMyMenus(A5), A4 


#MLastMenu, 
07, 00 

#4, SP 

DO, -(SP) 


{ee} (aes 
ree 


~(SP) 


jel) 


07, @2 


GMyMenus(AS), A4 
A4), A3 
A3), AQ 


#ChrApple, menuDatarl( Ad 


a3, -(SP) 


#OrvrType, -(SP)} 


nd globals 


DeskPrac 
DisckProc 
GrowProc 
Fatal€rror 
TnitHooks 


GNameChged( AS ) 
GActEdit(AS 

GOb jEdit(AS 
MState(AS ) 
MBootBlocks(AS ) 
MNF iles(AS ) 
#0,00 


AO, MF ileList(AS ) 
#0, D0 


AO, MCmdSafc(AS ) 
in global as free 
#8,D1 

#-1,D2 
GWindows(AS ), AO 
D2, (A0) 


#DWindLen, AO 
D1,wiloop 


#4, SP 


(SP)+, 00 
ChkErrar 


IMString(A6 ) 
#4, -(SP 
GeeStr 


#4, SP 

IMStr ing(A6 ) 
RSerapKind, -(SP) 
#4, SP 


(SP)+, AO 
#0, 00 

8(A0), 00 
BO, -(SP) 


{er 


SerpWind 


) 


&2 /BLANK: FINDER68K. TEXT 


save te handle 
set up as centered 


Initialize unit menus 


Get last menu 
Point to MyMenus 


Get last menu 


indcx -1 for DBRA 


- current index gives 1's index 


Save space for the menu 
Push the index 

and get the menu 

Copy for detach 

Install it in MyMenus 
Detach 
push 0 
Insert the menu 
and loop back. 


Point ta MyMcnus 
Get the First menu 
Dercference 

Set apple character 


Push the first menu 
Push driver type 
add on desk ornaments 


Draw the menu bart 


Install the various hoaks 


change 
editing yct 
object being edited 


mega move state 
boot blacks 
no files 


allacate a dummy file list 


and a dummy cmd safe 


counter 
handy number 
point to window array 


deallacate it 


next. . 


Save space for crror 
Laad in the scrap 
Get error code 

check for errors 


Push “Clipboard” 
Get the string 


index 


Save 
push 
Push 


space for window 
nome 
serap kind 


Save space for ptr ta 
get the information 
Get ptr ta AO 


DO is the scrapCount 
Push for refeoan 


Not visible 
no contrals 
Use the default rect. 


it from resources 


info 
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JSR 
MOVE. L 


; Hack to clean up swaps 


SUBQ 
MOVE 
_GetCursor 
ADDQ 


MOVEM. L 
UNLK 
RTS 


End 


MakcWindow 


#4, SP 
®1BcamCursor, - (SP } 


#4, SP 


(SP )+, A2-A4/03-D7 
AB 


&2/BLANK: FINDER68K. TEXT 


; Make a generic window 
(SP )+, GScrapWindow(AS) ; 


and copy to globals. 


j get the I BEAM 


; Restore all regs 


unlink 
and return. 
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Further Reference: 


File Manager 

Resource Manager 

User Interface Guidelines 

Technical Note #29, Resources Contained in the Desktop File 
Technical Note #48, Bundles 

Technical Note #210, The Desktop file's Outer Limits 


END OF DOCUMENT 
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